home *** CD-ROM | disk | FTP | other *** search
/ Softdisk Supreme / Softdisk Supreme.iso / pc / DSK Files / 0-49 / SD024c.dsk / AD.MUSIC DISK.bas < prev    next >
BASIC Source File  |  2003-06-12  |  2KB  |  35 lines
  1. 10  HIMEM: 8191
  2. 20 FI$ = "MUSIC DISK AD"
  3. 30  GOSUB 170
  4. 40  PRINT : PRINT " HANG IN THERE....": VTAB 14: PRINT  TAB( 5);"LOTS OF FILES TO LOAD......"
  5. 50  PRINT "<CTRL-D>BLOADPLAYER,A$300": REM  FROM ELECTRIC DUET BY      PAUL LUTUS
  6. 60  VTAB 14: HTAB 32: PRINT ".."
  7. 70  PRINT "<CTRL-D>BLOADPRINTER,A$94E0"
  8. 80  VTAB 14: HTAB 34: PRINT ".."
  9. 90  PRINT "<CTRL-D>BLOADP."FI$",A$2000"
  10. 100  VTAB 14: HTAB 36: PRINT ".."
  11. 110  PRINT "<CTRL-D>BLOADM."FI$",A$4000"
  12. 120  HOME 
  13. 130  VTAB 9: PRINT 
  14. 140  POKE 49168,0
  15. 150  CALL 38112
  16. 160  GOTO 300
  17. 170  TEXT : HOME : INVERSE : FOR A = 1 TO 23: PRINT "                                        ";: NEXT 
  18. 180  GOSUB 250: GOSUB 240
  19. 190 A$ = "THE SOFTDISK MUSIC DISK": VTAB 3: HTAB 20 - LEN(A$)/2: PRINT A$;: HOME 
  20. 200  REM 
  21. 210  INVERSE : GOSUB 270: NORMAL 
  22. 220  HOME : POKE 34,7: POKE 35,20: HOME : PRINT 
  23. 230  RETURN 
  24. 240  NORMAL : POKE 33,38: POKE 32,1: POKE 35,22: POKE 34,5: HOME : RETURN : REM  BIG BOX
  25. 250  NORMAL : POKE 33,30: POKE 32,5: POKE 34,1: POKE 35,4: HOME : RETURN : REM TOP BOX
  26. 260  HTAB 20 - LEN(A$)/2: PRINT A$;: RETURN 
  27. 270 A$ = "Q&D": FOR A = 1 TO 3: VTAB 1 +A: HTAB A: PRINT  MID$ (A$,A,1);: NEXT 
  28. 280  FOR A = 1 TO 3: VTAB 1 +A: HTAB 39 -A: PRINT  MID$ (A$,A,1);: NEXT 
  29. 290  RETURN 
  30. 300  VTAB 24: HTAB 2
  31. 310  POKE 49168,0
  32. 320  PRINT "RUN AGAIN? (Y/N) ";: GET K$: PRINT K$;: IF K$ < >"Y"  THEN  IF K$ = "N"  THEN  HIMEM: 38400: TEXT : PRINT : PRINT  CHR$(4)"RUN AD.MENU"
  33. 330  IF K$ < >"Y"  THEN  PRINT "<CTRL-G>";: VTAB 24: HTAB 2: GOTO 320
  34. 340  FOR A = 1 TO 17: PRINT : NEXT : GOTO 130
  35. 65535  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-M>********************************<CTRL-M>* PRODUCED BY Q & D PROGRAMMING<CTRL-M>* DUGYM QYCFYL, APR 1983<CTRL-M>********************************<CTRL-M>